home *** CD-ROM | disk | FTP | other *** search
/ Whiteline: delta / whiteline CD Series - delta.iso / fonts / ghost333 / ps / gs_cidfn.ps < prev    next >
Text File  |  1995-11-25  |  4KB  |  114 lines
  1. %    Copyright (C) 1995 Aladdin Enterprises.  All rights reserved.
  2. % 
  3. % This file is part of Aladdin Ghostscript.
  4. % 
  5. % Aladdin Ghostscript is distributed with NO WARRANTY OF ANY KIND.  No author
  6. % or distributor accepts any responsibility for the consequences of using it,
  7. % or for whether it serves any particular purpose or works at all, unless he
  8. % or she says so in writing.  Refer to the Aladdin Ghostscript Free Public
  9. % License (the "License") for full details.
  10. % 
  11. % Every copy of Aladdin Ghostscript must include a copy of the License,
  12. % normally in a plain ASCII text file named PUBLIC.  The License grants you
  13. % the right to copy, modify and redistribute Aladdin Ghostscript, but only
  14. % under certain conditions described in the License.  Among other things, the
  15. % License requires that the copyright notice and this notice be preserved on
  16. % all copies.
  17.  
  18. % ProcSet for implementing CID-keyed fonts.
  19. % When this is run, systemdict is still writable.
  20.  
  21. %**************** This file isn't even close to being usable.
  22. %**************** It has never been tested, and it has no support for CMaps.
  23. %**************** Don't even think of trying to actually use it.
  24.  
  25. /.setlanguagelevel where { pop 2 .setlanguagelevel } if
  26. .currentglobal true .setglobal
  27. /GS_CIDFont_ProcSet 2 dict dup begin
  28.  
  29. /StartData        % <cidfontdict> <(Binary)|(Hex)> <datalength>
  30.             %   StartData -
  31.  { 2 index begin    % CID font dict
  32.    20 dict begin    % temporary dict
  33.    /datalength exch def
  34.    (Hex) eq /hex exch def
  35.    /cidfont exch def
  36.    /startdata currentfile fileposition def
  37.    
  38.     % Read the character data into an array of strings.
  39.     % There's no particular reason to prefer long strings over short,
  40.     % so we just create a separate string for each character.
  41.  
  42.    /charstrings CIDCount array def
  43.    /fontindices FDArray length FDBytes 1 eq { string } { array } ifelse def
  44.    0 1 CIDCount 1 sub
  45.     { /cid exch def
  46.       currentfile FDBytes GDBytes add cid mul startdata add setfileposition
  47.       fontindices cid FDBytes readint put
  48.       /pos GDBytes readint def
  49.       FDBytes readint pop    % skip FD of next entry
  50.       GDBytes readint pos sub
  51.       dup 0 eq
  52.        { pop null }
  53.        { currentfile pos setfileposition string readstring pop }
  54.       ifelse
  55.       charstrings cid 3 -1 roll put
  56.     }
  57.    for
  58.  
  59.     % Process each font in the FDArray.
  60.     % For Type 3 fonts, just do a definefont with an empty Encoding.
  61.     % For Type 1 fonts, read the Subrs (don't bother to check for
  62.     % duplicates), and set CharStrings to the character data array.
  63.     % We don't support embedded Type 0 fonts, but it isn't clear
  64.     % whether they're allowed anyway.
  65.  
  66.    cidfont /Encoding [ FDArray
  67.     { dup /FontType get 1 eq
  68.        { dup /CharStrings charstrings put
  69.      /Private get
  70.      dup /SubrCount known
  71.       { begin /Subrs [    % Private
  72.         0 1 SubrCount 1 sub
  73.          { SDBytes mul SubrMapOffset add startdata add
  74.            currentfile exch setfileposition
  75.            /pos SDBytes readint def
  76.            SDBytes readint pos sub
  77.            currentfile pos setfileposition string readstring pop
  78.          }
  79.         ] readonly def end    % Private
  80.       }
  81.      if pop
  82.        }
  83.       if
  84.       dup /Encoding [] put
  85.       dup /FontName get exch definefont
  86.     }
  87.    forall ] readonly def
  88.  
  89.     % Install the rest of the data in the font.
  90.  
  91.    cidfont /FontType 0 put    % ???
  92.    cidfont /CharStrings charstrings readonly put
  93.    cidfont /FontIndices fontindices readonly put
  94.    FontName cidfont /CIDFont defineresource pop
  95.  
  96.     % Wrap up.
  97.  
  98.    end            % temporary dict
  99.    end            % CID font dict
  100.    end            % resource dict
  101.  } bind def
  102.  
  103. /readint        % <nbytes> readint <int>
  104.  { 0 exch { 8 bitshift currentfile read pop add } repeat
  105.  } bind def
  106.  
  107. end readonly def
  108.  
  109. /defineresource where
  110.  { pop /CIDFont GS_CIDFont_ProcSet /ProcSet defineresource pop }
  111. if
  112.  
  113. .setglobal
  114.